Private Sub cmdReport_Click(ByVal sender As System.Object,
      ByVal e As System.EventArgs) Handles cmdReport.Click
    If lstReportName.SelectedIndex = -1 Then
        MsgBox("You must first select a Report.", vbCritical, Me.Text)
        Exit Sub
    End If
    MyReport = AppPath & Report_Names(lstReportName.SelectedIndex) & ".rpt"
    If Dir(MyReport) = "" Then
        MsgBox("Report: " & Report_Names(lstReportName.SelectedIndex) & _
        "cannot be found!", vbCritical, Me.Text)
        Exit Sub
    End If

    Dim rptForm As New ReportApp.Form1()
    rptForm.crv1.SelectionFormula = ""
    rptForm.crv1.ReportSource = MyReport
    rptForm.Text = "Address Book Reporting"
    rptForm.ShowDialog()
End Sub
